home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00596_timer scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  305 b   |  12 lines
  1. on doTimeout
  2.   global gChallengeIndex, gChallengeOrder, gResponseOrder, gStopTicks
  3.   set gStopTicks to 9999999
  4.   set idchar to char gChallengeIndex of gChallengeOrder
  5.   set x to 1
  6.   repeat while char x of gResponseOrder <> idchar
  7.     set x to x + 1
  8.   end repeat
  9.   wrongGuess(#timer, x)
  10.   nextChoice()
  11. end
  12.